home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 5 / CD-ROM Today - The Disc (Issue 5)(November 1994).ISO / mac / DHA demo / Don Norman Folder / The Library / The Library.rsrc / CSTR_2134_RegWwnCSTR < prev    next >
Text File  |  1994-09-21  |  570b  |  28 lines
  1. global gWBAMWL
  2. set the itemdelimiter to "■"
  3. if u="" then
  4. if there is a window w then
  5. put "false" into b
  6. repeat with x=1 to number of lines in gWBAMWL
  7. get line x of gWBAMWL
  8. if item 1 of it=w then
  9. put "true" into b
  10. exit repeat
  11. end if
  12. end repeat
  13. if b="false" then
  14. set the itemdelimiter to ","
  15. put w&"■"&m&"■"&(the rect of window w)&return after gWBAMWL
  16. end if
  17. end if
  18. else if u="false" then
  19. repeat with x=1 to number of lines in gWBAMWL
  20. get line x of gWBAMWL
  21. if item 1 of it=w then
  22. delete line x of gWBAMWL
  23. exit repeat
  24. end if
  25. end repeat
  26. end if
  27. set the itemdelimiter to ","